home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS069.dsk / COMBAT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  115 lines
  1. 1  HOME : PRINT  TAB( 17);"COMBAT"
  2. 3  PRINT : PRINT : PRINT 
  3. 4  PRINT "I AM AT WAR WITH YOU.": PRINT : PRINT "WE HAVE 72000 SOLDIERS APIECE.": PRINT 
  4. 5  PRINT "DISTRIBUTE YOUR FORCES.": PRINT 
  5. 6  PRINT ,"ME","YOU"
  6. 7  PRINT "ARMY",30000,
  7. 8  INPUT A
  8. 9  PRINT "NAVY",20000,
  9. 10  INPUT B
  10. 11  PRINT "A.F.",22000,
  11. 12  INPUT C
  12. 13  IF A +B +C >72000  THEN 5
  13. 14 D = 30000
  14. 15 E = 20000
  15. 16 F = 22000
  16. 17  PRINT : PRINT "YOU ATTACK FIRST. TYPE 1 FOR ARMY       2 FOR NAVY AND 3 FOR AIR FORCE."
  17. 19  INPUT Y
  18. 20  PRINT : PRINT "HOW MANY MEN": PRINT 
  19. 21  INPUT X
  20. 22  IF X <0  THEN 20
  21. 23  ON Y GOTO 100,200,300
  22. 100  IF X >(A)  THEN 20
  23. 105  IF X <A/3  THEN 120
  24. 110  IF X <2 *A/3  THEN 150
  25. 115  GOTO 270
  26. 120  PRINT "YOU LOST";X;"MEN FROM YOUR ARMY."
  27. 125 A =  INT(A -X)
  28. 130  GOTO 500
  29. 150 "YOU LOST"; INT(X/3);"MEN BUT I LOST"; INT(2 *D/3)
  30. 155 A =  INT(A -X/3)
  31. 160 D = 0
  32. 165  GOTO 500
  33. 200  IF X >B  THEN 20
  34. 210  IF X <E/3  THEN 230
  35. 215  IF X <2 *E/3  THEN 250
  36. 220  GOTO 270
  37. 230  PRINT "YOUR ATTACK WAS STOPPED!"
  38. 232 B =  INT(B -X)
  39. 235  GOTO 500
  40. 250  PRINT "YOU DESTROYED "; INT(2 *E/3);" OF MY ARMY"
  41. 255 E =  INT(E/3)
  42. 260  GOTO 500
  43. 270  PRINT "YOU SUNK 1 OF MY PATROL BOATS BUT 1     WIPED OUT 2 OF YOUR A.F. BASES AND 3    ARMY BASES."
  44. 280 A =  INT(A/3)
  45. 285 C =  INT(C/3)
  46. 290 E =  INT(2 *E/3)
  47. 293  GOTO 500
  48. 300  IF X >C  THEN 20
  49. 310  IF X <C/3  THEN 350
  50. 320  IF X <2 *C/3  THEN 370
  51. 330  GOTO 380
  52. 350  PRINT "YOUR ATTACK WAS WIPED OUT."
  53. 355 C =  INT(C = X)
  54. 360  GOTO 500
  55. 370  PRINT "WE HAD A DOGFIGHT- YOU WON- AND FINISHEDYOUR MISSION."
  56. 375 D =  INT(2 *D/3)
  57. 377 E =  INT(E/3)
  58. 378 F =  INT(F/3)
  59. 379  GOTO 500
  60. 380  PRINT "YOU WIPED OUT ONE OF MY ARMY PATROLS,   BUT I DESTROYED 2 NAVY BASES AND BOMBED 3 ARMY BASES."
  61. 385 A =  INT(A/4)
  62. 387 B =  INT(B/3)
  63. 390 D =  INT(2 *D/3)
  64. 500  PRINT 
  65. 501  PRINT ,"YOU","ME"
  66. 510  PRINT "ARMY",A,D
  67. 520  PRINT "NAVY",B,E
  68. 530  PRINT "A.F.",C,F
  69. 1000  PRINT "WHAT IS YOUR NEXT MOVE?"
  70. 1010  PRINT "ARMY=1  NAVY=2  AOR FPRCE=3"
  71. 1020  INPUT G
  72. 1030  PRINT "HOW MANY MEN"
  73. 1040  INPUT T
  74. 1045  IF T <0  THEN 1030
  75. 1050  ON G GOTO 1600,1700,1800
  76. 1600  IF T >(A)  THEN 1030
  77. 1610  IF T <D/2  THEN 1630
  78. 1615  PRINT "YOU DESTROYED MY ARMY!"
  79. 1616 D = 0
  80. 1617  GOTO 2000
  81. 1630  PRINT "I WIPED OUT YOUR ATTACK!"
  82. 1635 A = A -T
  83. 1640  GOTO 2000
  84. 1700  IF T >B  THEN 1030
  85. 1710  IF T <E/2  THEN 1750
  86. 1720  GOTO 1770
  87. 1750  PRINT "I SUNK 2 OF YOUR BATTLESHIPS, AND MY    AIR FORCE WIPED OUT YOUR UNGARDED       CAPITOL."
  88. 1755 A = A/4
  89. 1760 B = B/2
  90. 1765  GOTO 2000
  91. 1770  PRINT "YOUR NAVY SHOT DOWN THREE OF MY XIII    PLANES, AND SUNK 3 BATTLESHIPS."
  92. 1775 F = 2 *F/3
  93. 1780 E = (E/2)
  94. 1790  GOTO 2000
  95. 1800  IF T >C  THEN 1030
  96. 1810  IF T >F/2  THEN 1830
  97. 1820  GOTO 1850
  98. 1830  PRINT "MY NAVY AND AIR FORCE IN A COMBINED     ATTACK LEFT YOU COUNTRY IN SHAMBLES."
  99. 1835 A = A/3
  100. 1837 B = B/3
  101. 1840 C = C/3
  102. 1845  GOTO 2000
  103. 1850  PRINT "ONE OF YOUR PLANES CRASHED INTO MY HOUSEI AM DEAD."
  104. 1851  PRINT "MY COUNTRY FELL APART."
  105. 1860  GOTO 2010
  106. 2000  PRINT 
  107. 2001  PRINT "FROM THE RESULTS OF BOTH OF YOUR        ATTACKS,"
  108. 2002  IF A +B +C >3/2 *(D +E +F)  THEN 2010
  109. 2005  IF A +B +C <2/3 *(D +E +F)  THEN 2015
  110. 2006  PRINT "THE TREATY OF PARIS CONCLUDED THAT WE   TAKE OUR RESPECTIVE COUNTRIES AND LIVE  IN PEACE."
  111. 2008  GOTO 2020
  112. 2010  PRINT "YOU WON, OH! SHUCKS!!!!"
  113. 2012  GOTO 2020
  114. 2015  PRINT "YOU LOST- I CONQUERED YOUR COUNTRY. IT  SERVES YOU RIGHT FOR PLAYING THIS STUPIDGAME!!!"
  115. 2020  END